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1 Introduction 

PERQ Pascal is an upward-compatible extension of the programming language Pascal defined in 
PASCAL User Manual and Report [JW74]. The BSI/ISO and IEEE/ANSI standardization organizations 
have also further formalized and standardized the language as given in Specification for Computer 
Programming Language Pascal [BSI82] and American National Standard Pascal Computer Programming 
Language [IEEE83] respectively. This document describes only the extensions to Pascal applicable to the 
PERQ workstation. Refer to PASCAL User Manual and Report for a fundamental definition of Pascal. This 
document uses the BNF notation used in PASCAL User Manual and Report. The existing BNF is not 
repeated but is used in the syntax definition of the extensions. The semantics are defined informally. The 
general outline of this document follows that of both the BSI/ISO and the IEEE/ ANSI Pascal Standards 
[BSI82J. and [IEEE83J. This format should assist the reader in correlating extensions with the standard, 
underlying, Pascal language. 

These extensions are designed to support the construction of large systems programs. A major attempt 
has been made to keep the goals of Pascal intact. In particular, attention is directed at simplicity, efficient 
run-time implementation, efficient compilation, language security, upward-compatibility, and compile-time 
checking. 

These extensions to the language are derived from the BSI/ISO Pascal Standard [BS 182], the UCSD 
Workshop on Systems Programming Extensions to the Pascal Language [UCSD79] and, most notably, 
Pascal*[P*]. 

2 Lexical Tokens 

2.1 Identifiers 

The underscore character "_" may be included as a significant character in identifiers. The syntax for 
identifiers is: 

<identifier> ::= <1etter> { <letter> | <digit> | _ } 

2.2 Numbers 
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2.2.1 Whole Numbers 

A constant in the range -32768 to +32767 is considered single precision (an INTEGER). Constants 
exceeding this range are considered double precision (LONG). The maximums for double precision 
constants are -2147483648 and +2147483647. Arithmetic operations and comparisons are defined for both 
single and double precision whole numbers. 

2.2.2 Octal Whole Number Constants 

Unsigned octal whole number (INTEGER or LONG) constants are supported, as are decimal constants. 
Octal constants are indicated by a '#' preceding the number. The syntax for an unsigned integer is: 

<unsigned integer> ::= <unsigned decimal integer> | * 
<unsigned octal integer> 

<unsigned decimal in.teger> ::= <digit>{<digit>} 

<unsigned octal integer> ::= #<ogit>{<ogit>} 

<digit> ::-0|l|2|3|4|6|6|7|8|9 

<ogit> ::=0|1|2|3|4|5|6|7 

NOTE: Unsigned constants do not imply unsigned arithmetic. For example, #177777 has the value -1, 
not +65535. Thus, when using octal constants, a constant with the 16th bit set is interpreted as a negative 
INTEGER, not as a positive LONG. 

2.13 Floating Point Numbers 

PERQ Pascal floating point numbers (type REAL) occupy 32 bits and conform to the IEEE floating 
point format (see [FP80]). Positive values range from approximately 1.1754945e-38 to 3.402823e+38 and 
negative values range from approximately -1.1754945e-38 to -3.402823e+38. Arithmetic operations and 
comparisons are defined for floating point numbers. 

13 Lexical Alternatives 

PERQ Pascal supports none of the Lexical Alternatives defined in either»[JW74], [BSI82], or [IEEE83]. 
PERQ Pascal does, however, support the use of the '(*' and '*)' tokens as a second pair of comment 
delimiters. In PERQ Pascal the '*)' and '}' are NOT synonyms for each other. Thus the '(*', '*)' pair may be 
used to enclose comments delimited by the '{', '}' pair (and vice versa, of course). For example: 
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{ first comment - it contains a second 

(* second comment - embedded within the first *) 
end of first comment } 

is valid PERQ Pascal commentary. 

3 Blocks, Scope, and Activations 

3.1 Block 

The order of declaration for labels, constants, types, variables, procedures and functions has been 
relaxed. These declaration subsections may occur in any order and any number of times. It is required, 
however, that an identifier be declared before it is used. As in [J W74], two exceptions exist to this rule: 

1. Pointer types may be forward referenced as long as the declaration occurs within the same 
type-definition-part, and 

2. Procedures and functions may be predeclared with a forward declaration. 
The new syntax for the declaration subsection is: 

<b1ock> ::= <declaration partXstatement part> 

declaration part> ::= <declaration> | 
<declaration><declaration part> 

<declaration> ::= <empty> | 

<import declaration part> | 

<label declaration part> | 

<constant definition part> | 

<type definition part> | 

<variable declaration part> | 

<procedure and function declaration part> 

Note: See 11.1, IMPORTS Declarations for a description of <import declaration part>. 

3.2 Scope 

As in PASCAL User Manual and Report [JW74]. 
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3.3 Activations 

As in PASCAL User Manual and Report [JW74]. 

4 Constant-Definitions 

PERQ Pascal extends the meaning of a constant to include expressions which may be evaluated at 
compilc-time. Constant expressions are syntactically identical to normal, run-time evaluated expressions. 
The value of the constant expression is, however, determined during the compilation process. Thus all 
constant expression operands must be either literal constants, identifiers denoting previously defined 
constants, or other constant expressions. Valid operators include all of the arithmetic, logical, and relational 
operators (with the exception of the Set operators). Any of the intrinsic functions which reasonably return a 
constant result when given a constant arguments) are also permitted as operands in a constant expression 
(see 7.7, Required Functions). 

The new syntax for constants is: 
<constant> ::= <expression> 

5 Type-Definitions 

5.1 General 

As in PASCAL User Manual and Report [JW74]. 

5.2 Simple-Types 

5.2.1 Required Simple-Types 

As in PASCAL User Manual and Report [JW74J. 

5.2.2 Subrange-Types 

As in PASCAL User Manual and Report [JW7 4]. 
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5.3 Structured-Types 

5.3.1 Array-types 

As in PASCAL User Manual and Report [JW74]. 

5.3.2 String-types 

PERQ Pascal includes a character string facility. This facility provides variable length (e.g.the length is 
dynamic; established at run-time) character strings with a static (e.g.compile-time established) maximum 
length limit The default maximum static length of a STRING variable is 80 characters. This may be 
overridden in the declaration of a STRING variable by appending the desired maximum static length 
(must be a compile-time constant) within square brackets after the reserved type identifier STRING. There 
is an absolute maximum of 255 characters for all strings. The following are example declarations of 
STRING variables: 

Line : STRING; { defaults to a maximum static length of 80 
characters } 

ShortStr : STRING[12]; { maximum static length of ShortStr is 12 
characters } 

Assignments to string variables may be performed using the assignment statement or by means of a 
READ statement. Assignment of one STRING variable to another may be performed as long as the 
dynamic length of the source is within the range of the maximum static length of the destination - the 
maximum static length of the two strings need not be the same. 

The individual characters within a STRING may be selectively read and written as if they were 
elements of a packed array of characters. The characters are indexed starting from 1 through the dynamic 
length of the string. For example: 

program StrExample( input, output); 
var Line : string[25]; 
Ch : char; 

begin 

Line: s 'this is an example.'; 

Line[l]:='T' ; { Line now begins with upper case T } 

Ch:=Line[5]; { Ch now contains a space } 

end. 

A STRING variable may not be indexed beyond its dynamic length. The following instructions, if 
placed in the above program, would produce an "invalid index" run- time error: 



21 Aug 84 



PERQ Pascal Extensions - 6 



Line:='12345»; 
Ch:=Line[6]; 

STRING variables (and constants) may be compared regardless of their dynamic and maximum static 
lengths. The resulting comparison is lexicographical according to the ASCII character set The full 8 bits are 
compared; hence, the ASCII Parity Bit (bit 7) is significant for lexical comparisons. 

A STRING variable, with maximum static length N, can be conceived as having the following internal 
form: 

packed record DynLength : 0..255; { the dynamic length } 
Chrs: packed array [1..N] of char; 
end; { the actual characters go here } 

5.3.3 Record-types 

As in PASCAL User Manual and Report [JW74]. 

5.3.4 Set-types 

PERQ Pascal supports all of the constructs defined for sets in section 8 of PASCAL User Manual and 
Report [J W74]. Space is allocated for sets in a bit-wise fashion - at most 255 words for a maximum set size 
of 4,080 elements. If the base type of a set is a subrange of integer, that subrange must be within the range 
0..4079, inclusively. If the base type of a set is a subrange of an enumerated type, the cardinal number of the 
largest element of the set must not exceed 4,079. 

5.3.5 File-types 

PERQ Pascal permits the use of files as the component type of arrays, pointers and record fields. In 
addition to the standard file type, PERQ Pascal also provides the Generic file type. Generic files have very 
restricted usage. Their purpose is to provide a facility for passing various types of files to a single procedure 
or function. Generic files may only appear as routine VAR parameters. Their type is FILE. They can be 
used in only two ways: 

1. Passed as a parameter to another generic file parameter, or 

2. Passed as an argument to the LOADADR intrinsic. 

The following example shows two ways of using generic files: 
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program P; 
type 

FOflnt = file of integer; 
var 

F : text; 

F2 : file of boolean; 

procedure Procl(var GenFile : file); 
var 

UseGenFile : record 

case boolean of 

true : (FileOf Interest : tFOflnt); 
false : (Offset : integer; 

Segment : integer); 
end; 
begin 

loadAdr(GenFile); 
storexpr( UseGenFile. Off set); 
storexpr( UseGenFile. Segment) ; 
{ Now FileOf Interest can be used } 



end; 

procedure Proc2(var GenFile : file); 
const 

STDW = 183; 
var 

FileOflnterest : tFOflnt; 
begin 

loadAdr( FileOflnterest); 
loadAdr(GenFile) ; 
InLineByte(STDW); 
{ Now FileOflnterest can be used } 



end; 

begin 

Procl(F); 

Procl(F2); 

Proc2(F); 

Proc2(F2); 

end. 
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5.4 Pointer-types 

In addition to the standard pointer type, PERQ Pascal also provides the Generic pointer type. Generic 
pointers provide a tool for generalized pointer handling. Variables of type POINTER can be used in the 
same manner as any other pointer variable with the following exceptions: 

1. Since there is no domain-type associated with the reference variable of a generic pointer, generic 
pointers cannot be dereferenced. 

2. Generic pointers cannot be used as an argument to NEW or DISPOSE. 

3. Any pointer type can be passed to a generic pointer parameter. To make use of a generic pointer, 
RECAST should be used to convert the pointer to some usable pointer type. 

The following is a sample program utilizing generic pointers: 

program P( input, output) ; 
type 

Ptrlnt = tinteger; 

PAOfChar = packed array[1..2] of char; 

PtrPAOfChar = tPAOfChar; 
var 

I : Ptrlnt; 

C : PtrPAOfChar; 

procedure Procl(GenPtr : pointer); 

var W : PtrPAOfChar; 

begin 

W := recast(GenPtr, PtrPAOfChar); 

write1n(Wt[l],W*[2]) 
end; 

begin 

new(I); 

It := 16961; { First byte = 'A', second * 'B' } 

Procl(I); 

new(C); 

Ct[l] := 'C; 

Ct[2] := f D'; 

Procl(C); 

end. 

produces output 

AB 

CD 
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5.5 Compatible Types 

PERQ Pascal supports strict type compatibility as defined by the BSI/ISO Pascal Standard [BSI82], with 
one addition: any two strings, regardless of their maximum static lengths, are considered compatible. 

5.6 Assignment-Compatibility 

Single precision whole numbers are assignment compatible with double precision whole numbers and 
floating point numbers. That is, expressions of type INTEGER (or subrange of INTEGER) may be 
assigned to variables of type LONG, subrange of LONG, or REAL. Also, INTEGER expressions may be 
passed by value (only) to LONG, subrange of LONG, or REAL formal parameters. In the same manner, 
double precision whole number types are assignment compatible with floating point types. 

Note that this mixing of whole number and floating point modes may be disabled through the use of the 
NoMixedModePcrmitted compiler invocation switch (see 12.2.7, Mixed-Mode Permission Switch). 

Double precision whole number types and floating point types are not assignment compatible with 
single precision whole number types. Likewise, floating point types are not assignment compatible with 
double precision number types. The type coercion intrinsics SHRINK, ROUND, and TRUNC may be, 
used to convert these modes as needed. See the "Transfer Functions" subsection of this document for a 
description of these coercion intrinsics. 

6 Declarations and Denotations of Variables 

As in PASCAL User Manual and Report [JW74]. 

7 Procedure, Function, Exception and Handler Declarations 

7.1 Procedure-Declarations 

As in PASCAL User Manual and Report [JW74]. 
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7.2 Function-Declarations 

PERQ Pascal functions may return any type, with the exception of type FILE. 

7.3 Exception-Declarations 

PERQ Pascal provides an exception handling facility. Exceptions are typically used for error conditions. 
There are three steps to using an exception: 

1. 'The exception must be declared. 

2. A handler for the exception must be defined (see Handler-Declarations). 

3. The exception must be raised (see 9.2.2, Raise Statements). 

An exception is declared by the word EXCEFHON followed by its name and optional list of 
parameters. For example:- 

EXCEPTION DivisionByZero(Numerator : integer); 

Exceptions may be declared anywhere in the declaration portion of a program or module. 
7.3.1 ALL EXCEPTION 

If an exception is raised for which no handler is defined or eligible (see Raise Statements), the system 
catches the exception and invokes the debugger. A facility is provided to allow the user to catch such 
exceptions before the system does. This is accomplished by defining a Handler for the predefined exception 
ALL: . . 

EXCEPTION ALL(ES,ER,PStart,PEnd : integer); 
where 

• ES is the system segment number "of the exception, 

• ER the routine number of the exception, 

• PStart the stack offset of the first word of the exception's original parameters, and 

• PEnd the stack offset of the word following the original parameters. 

Any raised exception that does not have an eligible handler in the same or suceeding level (of the calling 
sequence), in which an ALL handler is defined, is caught by that ALL handler. The four integer parameter 
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values are calculated by the system and supplied to the ALL handler. Extreme caution should be used when 
defining an ALL handler, as the handler also catches system exceptions. ALL cannot be raised explicitly. 

7.4 Handler-Declarations 

PERQ Pascal provides an exception handling facility. Exceptions are typically used for error conditions. 
There are three steps to using an exception: 

1. The exception must be declared (see Exception-Declarations, above). 

2. A handler for the exception must be defined. 

3. The exception must be raised (see 9.2.2, RAISE Statements). 

A Handler specifies the code to be executed when an exception condition occurs. This is accomplished 
by defining a handler with the same name and parameter types as the declared exception, for example: 

HANDLER DivisionByZero(Top : integer); <b1ock> 

(See subsection 3.1 for an explanation of <block>.) Essentially, a handler looks like a procedure with the 
word HA.NDLER substituted for the word PROCEDUR.E. Handlers may appear in the same places 
procedures are allowed, with one difference. Handlers cannot be global to a module (they may, however, be 
global to the main program). The number, and type of parameters of a handler must match those of the 
corresponding exception declaration but the names of the parameters may be different Multiple handlers 
can exist for the same exception as long as there is only one per name scope. The exception must be 
declared before its handlers). 

Since exceptions are generally used for serious errors, careful consideration should be given as to 
whether or not execution should be resumed after an exception is raised. When a handler terminates, 
execution resumes at the place following the RAISE statement. The handler can, of course, dictate 
otherwise. The EXIT and GOTO statements may prove useful here (See 9.2, Simple-Statements). 

7.5 Parameters 

PERQ Pascal permits, but does not require, the parameter list of procedures and functions which have 
been forward declared to be repeated at the site of the actual declaration. If repeated, the parameter list 
must match the previous declaration or a compilation error occurs. 

Note that to redeclare procedures/functions that have a function as a parameter, both the parameter list 
and the function type must be repeated within the redeclared parameter list (if it appears). However, to 
redeclare procedure/functions that have a procedure as a parameter, their parameter list must NOT appear. 
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7.6 Required Procedures 

7.6.1 File handling procedures 

PERQ's Input/Output intrinsics vary slightly from PASCAL User Manual and Report [J W74J. 

7.6.2 REWRITE 

The REWRITE procedure has the following alternative form: 
REWRITE (F, Name) 

F is the file variable to be associated with the file to be written and Name is a string containing the name 
of the file to be created. The required boolean function, EOF(F), becomes true and a new file may be 
written. The only difference between PERQ Pascal and PASCAL User Manual and Report[JW74] is that 
REWRITE is the inclusion of the optional filename string. 

7.6.3 RESET 

The RESET procedure has the following alternative form: 
RESET(F.Name) 

F is the file variable (of type text) to be associated with the existing file to be read and Name is a string 
containing the name of the file to be read. The current file position is set to the beginning of file, i.e. RESET 
assigns the value of the first element of the file to Ft. EOF(F) becomes false if F is not empty; otherwise, 
EOF(F) becomes true and Ft is undefined. 

7.6.4 CLOSE 

The CLOSE intrinsic closes an output file. The intrinsic has the following form: 
CLOSE(F) 

F is the file variable to be associated with the file to be closed. Note that if you do not close a file for 
which a rewrite was performed and the program exits, or aborts, any data written to that file is lost 

7.6.5 Dynamic allocation procedures 

The PERQ Pascal Compiler supports the dynamic allocation procedures NEW and DISPOSE defined 
on page 105 of PASCAL User Manual and Report [JW74], along with several upward compatible 
extensions which permit full utilization of the PERQ workstation's memory architecture. 
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There are two features of the workstation's memory architecture which require extensions to the 
standard allocation procedures. First, there are situations which require particular alignment of memory 
buffers, such as 10 operations. Second, the workstation supports multiple data heaps from which dynamic 
allocation may be performed. This facilitates grouping data together which are to be accessed together,, 
which may improve the PERQ workstation's performance due to improved paging. For further information 
of the memory architecture and available functions see the "File System" document of the Accent 
Programming Manual. 

7.6.6 NEW 

If the standard form of the NEW procedure call is used: 
NEW(Ptr{,Tagl,...TagN}) 
memory for Ptr is allocated with arbitrary alignment from the default data segment 

The extended form of the NEW procedure call is: 
NEW(Segment,Al ignment,Ptr{,Tagl, . . .TagN}) 

Segment is the heap number from which the allocation is to be performed. This number is returned to 
the user when creating a new heap. The value is used to indicate the default data heap. 

Alignment specifies the desired alignment Any power of 2 to 256 (2**0 through 2**8) is permissible. 
Do not use zero to specify the desired alignment 

If the extended form of NEW is used, both a segment and an alignment must be specified; there is no 
form which permits selective inclusion of either characteristic. 

If the desired allocation from any call to NEW cannot be performed, a NIL pointer is usually returned. 
However, if memory is exhausted, the FULLMEMORY exception may be raised. If the call to NEW fails 
and raises FULLMEMORY, the user program will abort unless it includes a handler for FULLMEMORY. 

7.6.7 DISPOSE 

DISPOSE is identical to the definition given in PASCAL User Manual and Report [J W7 4]. Note that 
the segment and alignment are never given to DISPOSE, only the pointer and tag field values. 
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7.6.8 Transfer procedures 

The transfer procedures Pack and Unpack are not implemented in PERQ Pascal. 

7.6.9 PERQ-specific procedures 

The seven intrinsics, MakeVRD, InLineByte, InLineWord, InLineAWord, LoadExpr, LoadAdr and 
StorExpr, require that the user have knowledge of ho*w the compiler generates code. ITiese intrinsics are 
made available only for those who know what they are doing. The programmer who wishes to experiment 
with these may find that the QCode disassembler, QDIS, is very useful to determine if die desired results 
were produced. 

7.6.10 StartIO 

StaitIO is a special QCode (See the Pascal/C Machine Reference Manual)which is used to initiate 
input/output operations to raw devices. PERQ Pascal supports a procedure, StartIO, to facilitate generation 
of the correct QCode sequence for I/O programming. The procedure call has the following form: 

StartlO(Unit) 

where Unit is the hardware unit number of the device to be activated. 

7.6.11 RastcrOp 

RasterOp is a special QCode which is used to manipulate blocks of memory of arbitrary sizes. It is 
especially useful for creating and modifying displays on the screen. RasterOp modifies a rectangular area 
(called the "destination") of arbitrary size (to the bit). The picture drawn into this rectangle is computed as 
a function of the previous contents of the destination and the contents of another rectangle of the same size 
called the "source". The functions performed to combine the two pictures are described below. 

To allow RasterOp to work on memory other than that used for the screen bitmap, RasterOp has 
parameters that specify the areas of memory to be used for the source and destination: a pointer to the start 
of the memory block and the width of the block in words. Within these regions, the positions of the source 
and destination rectangles are given as offsets from the pointer. Thus position (0,0) would be at the upper 
left corner of the region, and, for the screen, (767,1023) would be the lower right. The operating system 
module Screen exports useful parameters. 

The compiler supports a RasterOp intrinsic which may be used to invoke the RasterOp QCode. The 
form of this call is: 
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RasterOp(Function, 
Width, 
Height, 

Destination-X-Position, 
Destination-Y-Position, 
Destination-Area-Line-Length, 
Des ti nation -Memo ry-Po inter, 
Source -X-Pos it ion, 
Source -Y-Pos it ion, 
Source-Area-Line-Length , 
Source -Memory- Pointer) 

Note: the values for the destination precede those for the source. 

The arguments to RasterOp are defined below: 

"Function" defines how the source and the destination are to be combined to 
create the final picture stored at the destination. The RasterOp functions are as 
follows: (Src represents the source and Dst the destination): 

Function Name Action 

RRpl Dst gets Src 

1 RNot Dst gets NOT Src 

2 RAnd Dst gets Dst AND Src 

3. ' RAndNot Dst gets Dst AND NOT Src 

4 ' ROr Dst gets Dst OR Src 

5 ROrNot Dst gets Dst OR NOT Src 

6 RXor Dst gets Dst XOR Src 

7 RXNor Dst gets Dst XNOR Src 

The symbolic names are exported by the file "SapphDefs.Pas." 

"Width" specifies the size in the horizontal ("x") direction of the source and 
destination rectangles (given in bits). 

"Height" specifies the size in the vertical ("y") direction of the source and 
destination rectangles (given in scan lines). 

"Destination-X-Position" is the bit offset of the left side of the destination 
rectangle. The value is offset from Destination-Memory-Pointer (see below). 

"Destination-Y-Position" is the scan-line offset of the top of the destination 
rectangle. The value is offset from Destination-Jylemory-Pointer (see below). 

"Destination- Area-Line-Length" is the number of words which comprise a line 
in the destination region (hence defining the region's width). The appropriate 
value to use when operating on the screen is 48. The specified value must be a 
multiple of four (4) and within tlie range 4 through 48. 
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"Destination-Memory-Pointer" is the 32-bit virtual address of the top left corner 
of the destination region (it may be a pointer variable of any type). This pointer 
MUST be quad-word aligned (see 7.6.2.1, New for details on buffer alignment). 

"Source-X-Position" is the bit offset of the left side of the source rectangle. The 
value is offset from Source-Memory-Pointer (sec below). 

"Source- Y-Position" is the scan-line offset of the top of the source rectangle. The 
value is offset from Source-Memory-Pointer (sec below). 

"Source- Area-Line-Length" is the number of words which comprise a line in the 
source region (hence defining the region's width). The appropriate value to use 
when operating on the screen is 48. The specified value must be a multiple of 
four (4) and within the range 4 through 48. 

"Source-Memory-Pointer" is the 32-bit virtual address of the top left corner of 
the source region (it may be a pointer variable of any type). This pointer MUST 
be quad-word aligned, however. (See 7.6.2.1, New for details on buffer 
alignment.) 



7.6.12 MakePtr 



The MakePtr intrinsic permits the user to create a pointer to a data type given a system segment number 
and offset Its use is intended for those who are familiar with the system and are sure of what they are doing. 
The function takes three parameters. The first two are the system segment number and offset within that 
segment to be used in creating the pointer, respectively, given as integers. The third parameter is the type of 
pointer to be created. MakePtr returns a pointer of the type named by the third parameter. 

7.6.13 MakeVRD 

MakeVRD is used to load a variable routine descriptor for a procedure or function. (See "Routine Calls 
and Returns" for a description of LVRD and CALLV in the Pascal/C Machine Reference Manual.) The 
variable routine descriptor is left on the expression stack of the PERQ workstation, and any further 
operations must be performed by the user. This procedure takes one parameter, the name of the function or 
procedure for which the variable routine descriptor is to be loaded. The use of this intrinsic assumes that 
the programmer is familiar with QCode. 

7.6.14 InLineByte 

InLineByte permits the user to place explicit bytes directly into the code stream generated by the 
compiler. This intrinsic is particulary useful for insertion of actual QCodes into a program. InLineByte 
requires one parameter, the byte to be inserted. The type of this parameter must be either integer or 
subrange of integer. 
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7.6.15 InLineWord 

InLincWord permits the user to place explicit words directly into the code stream generated by the 
compiler. This intrinsic is particulary useful for insertion of direct QCodes into a program. InLineWord 
requires one parameter, the word to be inserted. This word will be inserted immediately as the next two 
bytes of the code stream (no word alignment is performed). The type of this parameter must be either 
integer or subrange of integer. 

7.6.16 InLineAWord 

InLineAWord permits the user to place explicit words directly into the code stream generated by the 
compiler. This intrinsic is particulary useful for insertion of direct QCodes into a program. InLineAWord 
requires one parameter, the word to be inserted. This word is placed on the next word boundary of the code 
stream. The type of this parameter must be either integer or subrange of integer. 

7.6.17 LoadExpr 

The LoadExpr intrinsic takes an arbitrary expression as its parameter and "loads" the value of the 
expression. The result of the "load" is wherever the particular expression type would normally be loaded 
(expression stack for scalars, memory stack for sets, etc.). 

7.6.18 LoadAdr 

The LoadAdr intrinsic loads the address of ah arbitrary data item onto the expression stack. The 
parameter to LoadAdr, the item whose address is desired, may include array indexing, pointer 
dereferencing and field selections. The address left on the expression stack will be a virtual address if the 
parameter includes either the use of a VAR parameter or a pointer dereference; otherwise a 20-bit stack 
offset will be loaded. 

7.6.19 StorExpr 

StorExpr stores the single word on top of the expression stack in the variable given as a parameter. The 
destination for the store operation must not require any address computation; the destination must be a 
local, intermediate or global variable; it must not be a VAR parameter; if it is a record, a field specification 
may be given. 

7.6.20 NoPageFault 

NoPageFault is used in eonjunction ^itb JnUneRy te, Inline Word, or Inline AWord to ensure that the 
inserted sequence of bytes representing a QCode does not span a virtual memory page boundary. 
NoPageFault requires one parameter, the number of byte locations needed before the next page boundary 
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occurs. The type of this parameter must be integer or subrange of integer. If the desired number of locations 
cannot be reserved, the compiler inserts NOOP QCodes to fill the current page, and the desired number of 
locations is reserved on the next memory page. Note that when given a location count larger than the size of 
a virtual page, NoPagcFault truncates the count down to the size of a memory page. 

7.7 Required Functions 

7.7.1 Arithmetic functions 

Recognition of the required arithmetic functions: Sin, Cos, Exp, Ln, Sqrt, and Arctan is not built into 
the PERQ Pascal compiler. The user may gain access to them by importing the operating system module 
RealFunctions. 

7.7.2 Transfer functions 

7.7.3 TRUNC and ROUND 

TRUNC and ROUND, as defined in the standard, convert a floating point number into a whole 
number, provided that the value of the floating point number is within the legal range of the desired, 
precision. If not, a runtime error occurs. Note that TRUNC (or ROUND) will produce either a single or 
double precision whole number, dependent upon the context of the expression in which it appears. For 
example: 



VAR R 
L 
I 



real ; 

long 

integer; 



FLOAT(I); 

TRUNC(R); 

ROUND(R); 

STRETCH(I); 

SHRINK(L); 

TRUNC(R); 

ROUND(R); 
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7.7.4 STRETCH 

The STRETCH intrinsic (PERQ specific) converts a single precision whole number (INTEGER) into a 
double precision whole number (LONG). STRETCH does sign extension. 

7.7.5 SHRINK 

The SHRINK intrinsic (PERQ specific) converts a double precision whole number (LONG) into a 
single precision whole number (INTEGER). The value of the double precision whole number must be 
within the legal range of single precision whole numbers. If it is out of range a runtime error occurs. 

7.7.6 FLOAT 

The FLOAT intrinsic converts a whole number of any precision into a floating point number. 

7.7.7 Type coercion - RECAST , 

The function RECAST converts the type of an expression from one type to another type when both 
types require the same amount of storage. RECAST, like the standard functions CHR and ORD, is 
processed at compile-time and thus does not incur run-time overhead. The function takes two parameters: 
the expression and the type name for the result Its implicit declaration is: 

function RECAST(va1ue:expression_type; T: result_type_name) :T; 
The following is an example of its use: 

program RecastDemo; 

type color = (red, blue, yellow, green); 

var C: color; I: integer 

begin 

I := 0; 

C := RECAST(I, color); { C := red; } 

end. 

Note that RECAST does not work correctly for all combinations of types; use the RECAST function 
sparingly and always scrutinize the results. Generally, only the following conversions produce expected 
results: 

• longs, reals, and pointers to any other type 

• arrays and records to either arrays or records 

• sets of 0..n to any other type 
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• constants to long or real 

• one word types (except sets) to one word types (except sets) 

Avoid the use of the RECAST function for any other conversion. 

WARNING: successful compilation does NOT imply that the code generated for the RECAST 
function will execute correctly. 

7.7.8 Ordinal functions 

The Boolean function, ODD, as defined in the standard is legal in PERQ Pascal for both single and 
double precision whole number objects. 

7.7.9 Boolean functions 

All of the boolean functions defined in the standard: ORD, CHR, SUCC, and PRED arc legal in PERQ 
Pascal for both single and double precision whole number objects. 

7.7.10 PERQ-specific functions 

7.7.11 WordSize 

The WordSize intrinsic returns the number of words of storage required for any item which has a size 
associated with it. Such items include constants, types, variables and functions. This intrinsic takes a single 
parameter, the item whose size is desired, and returns an INTEGER, the size of that item. 

Note: WordSize generates compile time constants, and may be used in constant expressions. 

7.7.12 LENGTH 

The predefined integer function LENGTH is provided to return the current dynamic length of a string. 
For example: 

program LenExamp1e( input, output); 
var Linerstring; 
Len: integer; 
begin 

Line:='This is a string with 35 characters'; 
Len:=length(Line) 
end. 

assigns the value 35 into Len. 
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7.7.13 Logical operations 

The PERQ Pascal compiler supports a variety of logical operations for use in manipulation of the bits of 
any whole number. The operations supported include: and, inclusive or, not, exclusive or, shift and rotate. 
With the exception of rotate, all of these operations are applicable to both single and double precision 
whole number objects. Rotate may only be applied to single precision whole number objects. The syntax 
for their use resembles that of a function invocation; however the code is generated inline to the calling 
procedure (hence there is no function run-time call overhead associated with their use). The syntax for the 
logical functions is described in the following subsections. 

7.7.14 And 

Function LAND(Vall,Val2: whole.number_mode): whole_number_mode; 
LAND returns the bitwise AND of Vail and Val2. 

7.7.15 Inclusive Or 

Function LOR(Vall,Val2: whole.number.mode): whole_numbermode; 
LOR returns the bitwise INCLUSIVE OR of Vail and Val2. 

7.7.16 Not 

Function LNOT(Val: whole_number_mode): whole_number_mode; 
LNOT returns the bitwise complement of Val. 

7.7.17 Exclusive Or 

Function LXOR(Vall,Val2: whole_number_mode): whole_number_mode; 
LXOR returns the bitwise EXCLUSIVE OR of Vail and Val2. 

7.7.18 SHIFT 

Function SHIFT(Value: whole_number_mode; 

Distance: INTEGER ): who1e_number_mode; 

SHIFT returns Value shifted Distance bits. For a single precision Value, Distance must be greater than 
or equal to -15 and less than or equal to + 15. For a double precision Value, Distance must be greater than 
or equal to -31 and less than or equal to +31. If Distance is positive, a left shift occurs, otherwise, a right 
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shift occurs. When performing a left shift, the Least Significant Bit is filled with a 0, and likewise when 
performing a right shift, the Most Significant Bit is filled with a 0. 

7.7.19 ROTATE 

Function ROTATE(Value, Distance: INTEGER): INTEGER; 

ROTATE returns Value rotated Distance bits to the right. ROTATE accepts only a single precision 
whole number as a Value. ROTATE accepts only a positive single precision whole number in the range 
through 15 for Distance. The direction of the ROTATE is to the right 



8 Expressions 



8.1 Mixed-Mode Expressions 

Mixed-mode expressions between single and double precision whole numbers or between whole 
numbers and floating point numbers are allowed. Each expression is evaluated in the largest precision mode 
mentioned within that expression. Thus if LONG's and REAL'S are mixed together in an expression then 
that entire expression is evaluated using floating point arithmetic. The compiler may, therefore, produce 
code which is inefficient for the particular instance of a mixed-mode expression because of this production 
of the most general precision code. You may control the precision of code generated by the compiler thru 
the use of explicit type coercion intrinsics. The compiler, when given an explicit coercion (such as 
STRETCH and/or FLOAT), will treat its operand as an expression separate from the expression in which it 
is embedded. For example: 

f := f * (1 * i); 

where f is REAL, 1 is LONG, and i is INTEGER; will be evaluated using entirely floating point 
arithmetic. Whereas given: 

f := f * FL0AT(1 * i); 

The product of 1 and i will be evaluated using LONG arithmetic and then floating point arithmetic will 
be used to complete the evaluation. 
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8.2 Record Comparisons 

PERQ Pascal supports comparison of records with one restriction: no portion of the records can be 
packed. For example, 

program P(input, output) ; 
var 

R1.R2 : record 

RealPart : integer; 

Imagine : integer; 
end; 
begin 

Rl. Real Part := 1; Rl. Imagine := 2; 

R2. RealPart := 1; R2. Imagine := 2; 

if Ri = R2 then writeln( 'Records equal'); 
end. 

produces as output 

'Records equal' 



9 Statements 

9.1 General 

As in PASCAL User Manual and Report [JW74], 

9.2 Simple-Statements 

As in PASCAL User Manual and Report [JW74], with the extensions described below. 
9.11 EXIT 

The procedure EXIT allows forced termination of procedures or functions. The statement can exit from 
the current procedure or function or from any of its parents. EXIT takes the procedure or function name to 
exit from as a parameter. Note that the use of an EXIT statement to return from a function can result in the 
function returning undefined values if no assignment to the function-identifier is made prior to executing 
the EXIT statement Below is an example of the EXIT statement: 
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program ExitExample( input, out put) ; 
var Str: string; 

procedure P; 

begin 

readln(Str); 

writeln(Str) ; 

if Str = This is the first line'' then 

exit(ExitExample) 
end; 

begin 

P; 

while Str <> Last Line'' do 

begin 

readln(Str); 

writeln(Str) 

end 
end. 

If the above program is supplied with the following input: 

This is the first line 
This is another line 
Last Line 

the following output would result: 

This is the first line 

If the procedure or function to be exited has been called recursively, then the most recent invocation of 
that procedure exits. 

The parameter to EXIT can be any procedure or function name. If the specified routine is not on the 
call stack, a run-time error occurs. 

9.2.2 RAISE 

PERQ Pascal provides an exception handling facility. Exceptions are typically used for error conditions. 
There are three steps to using an exception: 

1. The exception must be declared (see 7.3, Exception-Declarations). 

2. A handler for the exception must be defined (see 7.4, Handler-Declarations). 

3. The exception must be raised. 
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Raising an exception is analogous to a procedure call. The word RAISE appears before the name and 
parameters of the exception, for example: 



RAISE DivisionByZero(N); 

causes the appropriate handler to execute. The appropriate handler is determined by the current 
subprogram calling sequence. The run-time stack is searched until a subprogram containing a handler of 
the same name is found. The search starts from the subprogram which issues the RAISE. 

For example: 

program ExampleException; 

exception Ex; 

handler Ex; 
begin 

write1n( 'Global Handler for exception Ex'); 
end; 

procedure Procl; 
begin 
raise Ex; 
end; 

procedure Proc2; 
handler Ex; 

begin 

writeln( 'Local Handler for exception Ex') 

end; 
begin 
raise Ex; 
Procl; 
end; 

begin 
raise Ex; 
Proc2; 
Procl; 
end. 

produces the following output: 

Global Handler for exception Ex 
Local Handler for exception Ex 
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Local Handler for exception Ex 
Global Handler for exception Ex 

Handlers which are already active are not eligible for reactivation. In this case the search continues 
down the run-time stack until a non-active handler is found. A handler cannot, therefore, invoke itself by 
raising the same exception it was meant to handle. If a recursive procedure contains a handler, each 
activation of the procedure has its own eligible handler. 

If an exception is raised for which no handler is defined or eligible, the system catches the exception and 
invokes the debugger. A facility is provided to allow the user to catch such exceptions before the system 
does (see 7.3.1, ALL Exceptions). 

Since exceptions are generally used for serious errors, careful consideration should be given as to 
whether or not execution should be resumed after an exception is raised. When a handler terminates, 
execution resumes at the place following the RAISE statement. The handler can, of course, explicitly 
dictate otherwise. The EXIT and GOTO statements may prove useful here (see 9.2, Simple Statements). 

93 Structured-Statements 

As in PASCAL User Manual and Report [JW74], with extensions described below. 
9.3.1 Extended case statements 

Three extensions have been made to the case statement: 

1. Constant subranges as labels. 

2. The "otherwise" clause which is executed if the case selector expression fails to match any case 
label. 

3. If the selector expression is not in the list of case labels and no OTHERWISE label is used, then 
the case statement performs no-operation. This differs from [JW72], which suggests that this 
should be a fault 

Case labels may not overlap. A compile-time error occurs if any label has multiple definitions. 

The extended syntax for the case statement is: 

<case statements ::= CASE <expression> OF 

<case list elemenO {;<case list element>} END 

<case list element> ::- <case label list> : <statement> | 
<empty> 
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<case label list> ::= <case label> {,<case label>} 
<case label> ::= <constant> [. .<constant>] | OTHERWISE 

10 Input and Output 

10.1 READ/READLN 

PERQ Pascal supports extended versions of the READ and READLN procedures defined by PASCAL 
User Manual and Report [JW74]. Along with the ability to read whole numbers (and their subranges), 
floating point numbers and characters, PERQ Pascal also supports the ability to read booleans, packed 
arrays of characters, and strings. 

The literals TRUE and FALSE (or any unique abbreviations) are valid input for parameters of type 
boolean. Mixed upper and lower case are permissible. If the parameter to be read is a PACKED 
ARRAY[m..n] of CHAR, then the next n-m+1 characters from the current input line will be used to fill 
the array. If there are fewer than n-m+1 characters on the line, the array will be filled with the available 
characters, starting at the m'th position, and the remainder of the array will be filled with blanks. 

If the parameter to be read is of type STRING, then the string variable will be filled with as many 
characters as possible until either the end of the current input line is reached or the maximum static length 
of the string is met In either case, the dynamic length of the string will be set to the actual number of 
characters read. 

10.2 WRITE/WRITELN 

PERQ Pascal provides many extensions to the WRITE and WRITELN procedures defined by PASCAL 
User Manual and Report [JW74]. Due to the scope of these extensions, the WRITE and WRITELN 
procedures are completely redefined below: 

1. write(pl,...,pn) stands for write(output,pl,...,pn) 

2. write(f,pl,...,pn) stands for BEGIN write(f,pl); ... write(f,pn) END 

3. writeln(pl,...,pn) stands for writeln(output,pl,...pn) 

4. writeln(f,pl,...,pn) stands for BEGIN write(f,pl); ... write(f,pn); writeln(f) END 

5. Every parameter p must be of one of the forms: 

e 
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e: el 
e : el : e2 

where e, el and e2 are expressions. 

6. e is the value to be written and may be of type CHAR, LONG, INTEGER (or their subranges), 
REAL, BOOLEAN, PACKED ARRAY OF CHAR, or STRING. For parameters of type 
BOOLEAN, one of the literals TRUE, FALSE or UNDEF will be written; UNDEF is written if 
the internal value of the boolean expression is neither nor 1. 

7. el, the minimum field width, is optional. In general, the value e is written with el characters 
(with preceding blanks). If el is smaller than the number of characters required to print the given 
value, more space is allocated, unless e is a packed array of char, when only the first el characters 
of the array are printed. 

8. e2, which is optional, is applicable only when e is of type LONG, INTEGER (or their subranges) 
or REAL. If e is of type LONG or INTEGER (or their subranges) then c2 indicates the base in 
which the value of e is to be printed. The valid range for e2 is 2..36 and -36..-1 If e2 is positive, 
then the value of e is printed as a signed quantity (twos complement); otherwise, the value of e is 
printed as an unsigned quantity. If e2 is omitted, the signed value of e is printed in base 10. If e is 
of type REAL, then e2 specifies the number of digits to follow the decimal point. The number is 
then printed in fixed-point notation. If e2 is omitted, then real numbers are printed in 
floating-point notation. 



103 The Procedure Page 

The procedure Page is not currendy implemented in PERQ Pascal. 

11 Programs and Modules 

The module facility provides the ability to encapsulate procedures, functions, data and types, as well as 
supporting separate compilation. Modules may be separately compiled, and intermodule type checking will 
be performed as part of the compilation process. Unless an identifier is exported from a module, it is local 
to that module and cannot be used by other modules. All identifiers referenced in a module must be either 
local to the module or imported from another module. 

Modules do not contain a main statement part A program is a special instance of a module and 
conforms to the definition of a program given by the PASCAL User Manual and Report [JW74], Only a 
program may contain a main statement part Every executable group of modules must contain exactly one 
instance of a program. 
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Exporting permits a module to provide constants, types, variables, procedures and functions to other 
modules. Importing permits a module to use the EXPORTS provided by other modules. 

Global constants, types, variables, procedures and functions can be declared by a module to be private 
(available only to code within the module) or exportable (available within the module as well as from any 
other module which imports them). 

Modules that contain only type and constant declarations cause no run-time overhead, making them 
ideal for common declarations. Such modules may not be compiled (as errors will be produced); however, 
they may be successfully imported. 

11.1 IMPORTS Declarations 

The IMPORTS declaration specifies the modules that are to be imported into the module being 
compiled. The declaration includes the name of the module to be imported and the file name of the source 
file for that module. When compiling an import declaration, the source file containing the module to be 
imported must be available to the compiler. 

Note: If the module is composed of several INCLUDE files, only those files from the file containing the 
program or module heading through the file which contains the word PRIVATE, must be available (see 
12.2, Compiler Switches). 

The syntax for the IMPORTS declaration is: 

<import declaration part> ::= IMPORTS <module name> FROM <file name>; 

11.2 EXPORTS Declarations 

If a program or module is to contain any exports, the EXPORTS declaration subsection must 
immediately follow the program or module heading. The EXPORTS declaration subsection is comprised of 
the word EXPORTS followed by the declarations of those items to be exported. These definitions are given 
as previously specified with one exception: procedure and function bodies are not given in the exports 
subsection. Only forward references are given (see 3.1, Block; also section 11.2 in the PASCAL User 
Manual and Report [JW74]). The inclusion of "FORWARD;" in the EXPORTS declaration is omitted 

The EXPORTS declaration subsection is terminated by the occurrence of the word PRIVATE. This 
signifies the beginning of the declarations which are local to the module. The PRIVATE declaration 
subsection must contain foe dee&jatJiH^sBd be^ and functions defined in the 

EXPORTS declaration subsection. 
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If a program is to contain no EXPORTS declaration subsection, the inclusion of PRIVATE following 
the program heading is optional (PRIVATE is assumed). (Note: A module with no EXPORTS would be 
useless, since its contents could never be referenced - it only makes sense for a program not to have any 
EXPORTS.) 

The syntax for a unit of compilation in PERQ Pascal is: 

Compilation unit> ::= <module> | <program> 

<program> ::= <program headingXmodule bodyXstatement part>. 

<module> ::= <module headingXmodule body>. 

<program heading> ::= PROGRAM <identifier> ( <file identifier^ 
{, <file identified} ); 

<module heading> ::= MODULE <identif ier>; 

<module body> ::= EXPORTS declaration part> PRIVATE 

<declaration part> | PRIVATE <declaration part> | 
declaration part> 



12 Command Line and Compiler Switches 



12.1 Command Line 

The PERQ Pascal compiler is invoked by typing a compile command line to the Shell. The syntax for 
the compile command line is: 

COMPILE [<InputFile>] [ <OutputFile>] {<-Switch>}. 

<InputFile> is the name of the source file to be compiled. The compiler searches for <InputFile>. If it 
does not find <InputFile>, it appends the extension ".PAS" and searches again. If <InputFile> is still not 
found, the user will be prompted for an entire command line. If <InputFile> is not specified, the compiler 
uses for <InputFile> the last file name remembered by the Shell. 

<OutputFile> is the name of the file to contain the output of the compiler. The extension ".SEG" will be 
appended to <OutputFile> if it is not already present Note that if <OutputFile> is not specified, the 
compiler uses the file name from <InputFile>. If the ".PAS" extension is present, it is replaced with the 
".SEG" extension, while if the ".PAS" extension is not present, the ".SEG" extension is appended. If 
<OutputFile> already exists, it will be rewritten. 
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<-Switch> is the name of a compiler switch. All compiler switches specified on the command line must 
begin with the "-" character. Any number of switches may be specified, and if a switch is specified multiple 
times, the last occurrence is used. Also, if the -HELP switch is specified, the other information on the 
command line is ignored. The available switches are defined in the following subsections. 

12.2 Compiler Switches 

PERQ Pascal compiler switches may be set either in a mode similar to the convention described on 
pages 100-102 of PASCAL User Manual and Report [JW74] or on the command line described above (see 
12.1, Command Line). The first form of compiler switches may be written as comments and are designated 
as such by a dollar sign character ($) as the first character of the comment followed by the switch (unique 
abbreviations arc acceptable) and possibly switch parameters. The second form is given on the command 
line preceded by the dash (-) character. The actual switches provided by the PERQ Pascal compiler, 
although similar in syntax, bear little resemblance to the switches described in PASCAL User Manual and 
Report[JW74]. 

The following subsections describe the various switches currently supported by the PERQ Pascal 
Compiler. 

12.2.1 File inclusion 

The PERQ Pascal compiler may be directed to include the contents of secondary source files in the 
compilation. The effect of using the file inclusion mechanism is identical to having the text of the secondary 
file(s) present in the primary source file (the primary source file is that file which the compiler was told to 
compile). 

To include a secondary file, the following syntax is used: 

{SINCLUDE FILENAME} 

The characters between the "SINCLUDE" and the "}" are taken as the name of the file to be included 
(leading spaces and tabs are ignored). The comment must terminate at the end of the filename, hence no 
other options can follow the filename. 

If the file FILENAME does not exist, "PAS" is appended onto the end of FILENAME, and a second 
attempt is made to find the file. 

The file inclusion mechanism may be used anywhere in a program or module, and the results are as if 
the entire contents of the include file were contained in the primary source file (the file containing the 
include directive). 
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Note: There is no form of this switch for the command line. It may only be used in comment form 
within a program. 

Also note that "{" and "}" may be replaced with "(*" and "*)" respectively when typing compiler 
switches in comment form. 

12.2.2 LIST switch 

The LIST switch controls whether or not the compiler generates a program listing of the source text. 
The default is to not generate a list file. The format for the LIST switch is: 

{SLIST <filename>> 

or 

-LIST [= <filename>] 

where <filename> is the name of the file to be written. The extension ".LST" will be appended to 
<filename> if it is not already present If <filename> is not specified, the compiler uses the source file name. 
If the ".PAS" extension is present, it is replaced with the ".LST' extension; if the ".PAS" extension is not 
present, the ".LST' extension is appended. Like the file inclusion mechanism, in the comment form of the 
switch, the filename is taken as all characters between the "$LIST" and the "}" or "*)" (ignoring leading 
spaces and tabs); hence no other options may be included in this comment. 

12.2.3 RANGE checking 

This switch is used to enable or disable the generation of additional code to perform checking on array 
subscripts and assignments to subrange types. 

Default value Range checking enabled 

{$RANGE + } or -RANGE enables range checking 

{$RANGE-} or -NORANGE disables range checking 

{$RANGE= } resumes the state of range checking which was in force 

before the previous $RANGE- or $RANGE+ switch. 

If "$RANGE" is not followed by a "+", "-", or " = ", then "+" is assumed. 

Note that programs compiled with range checking disabled run slightly faster, but invalid indices go 
undetected. Therefore, until a program is fully debugged, it is advisable to keep range checking enabled. 
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12.2.4 QUIET switch 

This switch is used to enable or disable the Compiler from displaying the name of each procedure and 
function as it is compiled. 

Default value Display of procedure and function names enabled 

{$QUIET + } or -VERBOSE enables display of procedure and function names 

{$QUIET-} or -QUIET disables display of procedure and function names 

{$QUIET=} resumes the state of the quiet switch which was in 

force before the previous $QUIET- or $QUIET+ switch. 

If "$QUIET" is not followed by a "+'\ "-", or " = ", then "+" is assumed. 

12.2.5 Automatic RESET/REWRITE 

The PERQ Pascal compiler automatically generates a RESET(INPUT) and RE WRITE(OUTPUT). This 
may be disabled with the use of the AUTO switch. The format for this switch is: 

Default value Automatic initialization enabled 

{$ AUTO + } or -AUTO enables automatic initialization 

{$AUTO-} or -NO AUTO disables automatic initialization 

If "$AUTO" is not followed by a " + " or "-", then " + " is assumed. 

If the comment form of this switch is used, it must precede the BEGIN of the main body of the 
program. 

12.2.6 Global INPUT/OUTPUT switch 

The PERQ Pascal compiler generates code which accesses the built in TEXT file INPUT and OUTPUT 
as if they were declared locally to the program. This may be disabled if desired with the use of the 
GLOBALINOUT switch. The format for this switch is: 

Default value Use of global INPUT/OUTPUT is disabled 

{$GLOBALINOUT+} or -GLOBALINOUT enables global access of INPUT/OUTPUT 

{$NOGLOBALINOUT-} or 
-NOGLOBALINOUT disables global access of INPUT/OUTPUT 
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If "SGLOBALINOUT" is not followed by a " + " or "-", then " + " is assumed. 

If the comment form of this switch is used, it must precede any code of the program. 

12.2.7 Mixed-mode permission switch 

The PERQ Pascal compiler allows the mixing of arithmetic modes within expressions (see 8.1, 
Mixed-Mode Expressions). This may be disabled if desired with the use of MixcdModePermitted switch. 
The format for this switch is: 

Default value Mixed-mode expressions are permitted 

-MixedModePermitted Enables mixed-mode expressions 

-NoMixedModePermitted Disables mixed-mode expressions 

The comment form of this switch is illegal and may not be used. 

12.2.8 Procedure/function names 

The PERQ Pascal compiler generates a table of the procedure and function names at the end of the 
".SEG" file, if so directed. This table may be useful for debugging programs. 

The format for this switch is: 

Default value Name Table is generated 

{$N AMES + } or -NAMES Enables generation of the Name Table 

{$NAMES-} or -NONAMES Disables generation of the Name Table 

If "$NAMES" is not followed by a " + " or "-", then "-" is assumed. 

Note: currently two programs, the debugger and the disassembler, use the information stored in the 
Name Table. 

12.2.9 SCROUNGE (symbol table for debugger) switch 

The SCROUNGE switch causes the compiler to write symbol table information that can be used by the 
symbolic Pascal debugger. Additional files with extensions .QMAP and .SYM will be generated. The format 
for this switch is: 

Default value Symbol table files are produced 
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-SCROUNGE Enables production of symbol table files 

-NOSCROUNGE Disables production of symbol table files 

The comment form of this switch may not be used. 

12.2.10 VERSION Switch 

The VERSION switch permits the inclusion of a version string in the first block of the ".SEG" file. This 
string has a maximum length of 80 characters. Currently this string is not used by any other PERQ software. 
However, it may be accessed by user programs to identify ".SEG" files. The format for this switch is: 

{$VERSION <string>} or -VERSION = <string> to set the Version string. 

When using the $VERSION form of the switch, the version string is terminated by the end of the 
comment ("}" or "*)") or the end of the line. If the comment exceeds a single line, the remainder of the 
comment is ignored. 

12.2.11 COMMENT Switch 

The COMMENT switch permits the inclusion of arbitrary text in the first block of the ".SEG" file. This 
string has a maximum length of 80 characters. It is particularly useful for including copyright notices in 
".SEG" files. The format for this switch is: 

{$COMMENT <string>} or -COMMENT = <string> to set the comment string. 

When utilizing the $COMMENT form of the switch, the comment text is terminated by the end of the 
comment or the end of the line. If the comment exceeds a single line, the remainder of the comment is 
ignored. 

12.2.12 MESSAGE Switch 

The MESSAGE switch causes the text of the switch to be printed on the users screen when the switch is 
parsed by the compiler. It has no effect on the compilation process. The format for this switch is: 

{SMESSAGE <string>}to print <string> on the console during compilation 

The message is terminated by the end of the comment or the end of the line. If the comment exceeds a 
single line, the remainder of the comment is ignored. 

Note: There is no command line form for this switch. It may only be used in its comment form. 
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12.2.13 Conditional compilation 

The PERQ Pascal conditional compilation facility is implemented through the standard switch facility. 
There are three switches which are used for conditional compilations. The first is the $IFC switch, which 
has the following form: 

{SIFC <boolean expression> THEN} 

This switch indicates the beginning of a region of conditional compilation. If the boolean expression, 
evaluated at compile time, is true, the text to follow is included in the compilation. If the boolean 
expression evaluates to false, then the text which follows is not included. 

The region of conditional compilation is terminated by the $ENDC switch: 
{$ENDC> 

Upon encountering the $ENDC switch, the state of compilation returns to whatever state was present 
prior to the most recent $IFC. 

The remaining switch is the $ELSEC switch, and it functions much in the same way as the else clause in 
an IF statement If the boolean expression of the $IFC switch is true, then the $ELSEC text is ignored* 
otherwise it is included. 

If a $ELSEC switch is used, no $ENDC precedes the $ELSEC; the $ELSEC signals the end of the $IFC 
region. A $ENDC is then used to terminate the $ELSEC clause. 

Conditional compilations may be nested. 

The following are two examples of the conditional compilation mechanism: 

Const CondSw - TRUE; 

PROCEDURE Test; 

begin 

{$IFC CondSw THEN} 

Writeln( 'CondSw is true'); 
{$ENDC} 
end { Test }; 

and: 
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TYPE Base = record i ,j ,k: integer end; 
{$IFC WORDSIZE(Base) = 3 THEN} 

Cover = array[G..2] of integer 
{SELSEC} 

Cover = array[0..10] of integer 
{$ENDC}; 

12.2.14 ERRORFILE switch 

When the compiler detects an error in a program, it displays error information (file, error number, and 
the last two lines where the error occurred) on the screen and then requests whether or not to continue. The 
-ERRORFILE switch overrides this action. When you specify the switch and the compiler detects an error, 
the error information is written to a file and there is no query of the user. However, the compiler does 
display the total number of errors encountered on the screen. 

The format for this switch is: 
-ERRORFILE [= <filename>] 

where <filename> is the name of the file to be written. The extension ".ERR" will be appended to 
<filename> if it is not already present If <filename> is not specified, the compiler uses the source file name, 
If the ".PAS" extension is present, it is replaced with the ".ERR" extension; if the ".PAS" extension is not 
present, the ".ERR" extension is appended. 

The error file exists after a compilation if and only if you specify the -ERRORFILE switch and an error 
is encountered. If the file <filename>.ERR already exists from a previous compilation, it will be rewritten, 
or deleted in the case of no compilation errors. This switch allows compilations to be left unattended. 

12.2.15 HELP switch 

The HELP switch provides general information and overrides all other switches. The format is -HELP. 

13 Quirks and Oddities 

The following are descriptions of known quirks and problems with the PERQ Pascal compiler. Future 
releases may correct these problems. 

1. The last line of any PROGRAM or MODULE must end with a carriage return, or an 
"Unexpected End of Input" error occurs. 
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2. Although unique abbreviations are accepted for switches, the following abbreviations cause 
compilation errors: 

Switch Bad Abbreviation 

$ELSEC $ELSE 

$ENDC SEND 

$IFC $IF 

SINCLUDE SIN 

3. Procedures and functions which are forward declared (including EXPORT declarations) and 
contain procedure parameters, may not have their parameter lists redeclared at the- site of the 
procedure body. 

4. The compiler currently permits the use of an EXIT statement where the routine to be exited from 
is at the same lexical level as the routine containing the EXIT statement For example: 

program Quirk; 

procedure ProcOne; 

begin 

end; 

procedure ProcTwo; 
begin 

exit(ProcOne) 
end; 

begin 

ProcTwo 

end. 

If there is no invocation of the routine to be exited on the run-time stack, a run-time error occurs. 

5. The filename specification given in IMPORTS Declarations must start with an alphabetic 
character. 

6. Record comparisons involving packed records (illegal comparisons) will not be caught unless the 
word PACKED appears explicitly in the record definition. For example, records with fields of 
user-defined type Foo, where Foo contains packed information, are considered comparable by 
the compiler when in actuality they are not 

7. The compiler will not detect an error in the definition or use of a set that exceeds set size 
limitations. If such a set is used, incorrect code will be generated. 

8. The RECAST intrinsic does not work with two-word scalars (for example, LONG) and arrays. 

9. The code size of a compilation unit cannot exceed 32k. 
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